home *** CD-ROM | disk | FTP | other *** search
/ Game Infinity - ECTS (UK) (Press Kit) / Game Infinity - ECTS (UK) (Press Kit).bin / data / main.dxr / 00051.ls < prev    next >
Encoding:
Text File  |  2000-08-15  |  2.1 KB  |  105 lines
  1. global upnum, downnum, upname, downname, aa, aaa, bb, cc
  2.  
  3. on buttonclicked
  4.   spriteNum = the clickOn
  5.   upnum = the memberNum of sprite spriteNum
  6.   upname = member(upnum).name
  7.   downname = upname && "down"
  8.   downnum = the number of member downname
  9.   puppetSound("msdown")
  10.   set the memberNum of sprite spriteNum to downnum
  11.   updateStage()
  12.   repeat while the mouseDown
  13.     if rollover(spriteNum) then
  14.       set the memberNum of sprite spriteNum to downnum
  15.       set the cursor of sprite aaa to [103, 104]
  16.     else
  17.       set the memberNum of sprite spriteNum to upnum
  18.     end if
  19.     updateStage()
  20.   end repeat
  21.   if the memberNum of sprite spriteNum = downnum then
  22.     set the memberNum of sprite spriteNum to upnum
  23.     updateStage()
  24.     return 1
  25.   end if
  26.   return 0
  27. end
  28.  
  29. on roll
  30.   aa = the mouseMember
  31.   bb = word 2 of string(aa)
  32.   cc = integer(bb)
  33.   if rollover(aaa) then
  34.     sprite(aaa).memberNum = cc + 1
  35.     sprite(4).memberNum = aaa + 100
  36.     set the cursor of sprite aaa to [101, 102]
  37.     updateStage()
  38.   else
  39.     sprite(aaa).memberNum = cc
  40.     sprite(4).memberNum = 110
  41.     updateStage()
  42.   end if
  43.   updateStage()
  44. end
  45.  
  46. on roll2
  47.   aa = the mouseMember
  48.   bb = word 2 of string(aa)
  49.   cc = integer(bb)
  50.   if rollover(aaa) then
  51.     sprite(aaa).memberNum = cc + 1
  52.     set the cursor of sprite aaa to [101, 102]
  53.   else
  54.     sprite(aaa).memberNum = cc
  55.   end if
  56.   updateStage()
  57. end
  58.  
  59. on gogo
  60.   set the cursor of sprite aaa to [105, 106]
  61.   puppetSound("msup")
  62.   if aaa = 6 then
  63.     go(1, "gj-int2")
  64.   end if
  65.   if aaa = 7 then
  66.     gotonetpage("http://www.gameinfinity.or.kr")
  67.   end if
  68.   if aaa = 8 then
  69.     go(1, "quit")
  70.   end if
  71.   if aaa = 11 then
  72.     go(1, "adam")
  73.   end if
  74.   if aaa = 12 then
  75.     go(1, "best")
  76.   end if
  77.   if aaa = 13 then
  78.     go(1, "g2g")
  79.   end if
  80.   if aaa = 14 then
  81.     go(1, "jamie")
  82.   end if
  83.   if aaa = 15 then
  84.     go(1, "jys")
  85.   end if
  86.   if aaa = 16 then
  87.     go(1, "kidkid")
  88.   end if
  89.   if aaa = 17 then
  90.     go(1, "metro")
  91.   end if
  92.   if aaa = 18 then
  93.     go(1, "min")
  94.   end if
  95.   if aaa = 19 then
  96.     go(1, "multi")
  97.   end if
  98.   if aaa = 20 then
  99.     go(1, "uzdr")
  100.   end if
  101.   if aaa = 21 then
  102.     go(1, "wizard")
  103.   end if
  104. end
  105.